10 REM DEMOPROGRAMM FUER DATA-AID
20 REM NIKOLAUS HEUSLER, ZWENGAUERWEG 18, 8 MUC 71
30 :
35 Z=8
40 DATAANTON ,BERT,CARL,DIETER
50 DATAPETRA,HEIKE
55 DATAKATJA,SUSI
60 DATA123,40,50,60
65 DATA110
70 !R60:READA,B
80 !RB:READA$:!R65:READX:!RX/2
90 READW$,H$:READX
100 PRINT"[147]":POKE214,Z:SYS58732:PRINT""X;A$;W$B
110 DATA4,1,19,32,21,20,9,12,9,20
112 DATA25,32,39,4,1,20,1,45,1,9
114 DATA4,39,32,9,19,20,32,16,18,9
116 DATA13,1,32,45,45,32,32,32,32,32
118 DATA6,9,14,4,5,14,32,19,9,5
120 DATA32,32,14,32,9,32,3,32,8,32
122 DATA20,32,32,63,63,32,-1
180 !C110
190 !S110,1025+Z*40
210 PRINT"[145][145][145][145][163][163][163]
220 [151]198,9
230 [131]145,145,145,148,141,17,148,141,32,-1
232 !S230,631